home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / star-1_0.tar / chiptest.star < prev    next >
Text File  |  1991-03-22  |  575b  |  28 lines
  1.     ld v0, x'ff    ; Initialize the delay timer
  2.     ld delay, v0
  3.  
  4. loop:    ld i, charbuf    ; Place to store the BCD
  5.     ld v0, delay    ; Get current delay value
  6.     ld bcd, v0    ; Convert it to BCD
  7.     ld v2, @i    ; Pick up the digits
  8.  
  9.     ld v3, 0    ; Coords for 100s digit
  10.     ld v4, 0
  11.     char v0        ; Point at the character
  12.     show v3, v4, 5    ; Display it
  13.  
  14.     ld v3, 6    ; X coord for 10s digit
  15.     char v1        ; Point at the character
  16.     show v3, v4, 5    ; Display it
  17.  
  18.     ld v3, 11    ; X coord for 1s digit
  19.     char v2        ; Point at the character
  20.     show v3, v4, 5    ; Display it
  21.  
  22.     jump loop    ; Keep going forever
  23.  
  24. charbuf:
  25.     byte  0,0,0
  26.  
  27.     end
  28.